home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / EARTHQUEST™ TOUR Demo / EARTHQUEST™ tour / EARTHQUEST™ tour / card_12386.txt < prev    next >
Text File  |  1990-08-03  |  5KB  |  230 lines
  1. -- card: 12386 from stack: in
  2. -- bmap block id: 11522
  3. -- flags: 4000
  4. -- background id: 10897
  5. -- name: Saving the Environment
  6. ----- HyperTalk script -----
  7. Endangered Air
  8. Ecocycles
  9. Ecocycles
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 0001
  15. -- rect: left=0 top=0 right=38 bottom=40
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 12553 / 12553
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: 
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   exit mouseup
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=410 top=0 right=51 bottom=512
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: goback
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   pop card
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 3 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=10 top=86 right=137 bottom=112
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Thrush
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   play "thrush"
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=302 top=120 right=303 bottom=477
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Gardening
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   play "bird"
  84.   dowindow "Gardening"
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 5 (button)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=18 top=164 right=210 bottom=105
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Water
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   play "water"
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 9 (field)
  109. -- low flags: 81
  110. -- high flags: 2004
  111. -- rect: left=113 top=158 right=275 bottom=324
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 512
  118. -- line height: 16
  119. -- part name: Kenyan Proverb
  120. ----- HyperTalk script -----
  121. on mouseup
  122.   hide me
  123. end mouseup
  124.  
  125.  
  126. -- part 10 (button)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=124 top=48 right=304 bottom=298
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Kenyan Proverb
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   play "flute"
  141.   set the visible of cd field "Kenyan Proverb" to not the visible of cd field "Kenyan Proverb"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 11 (button)
  147. -- low flags: 80
  148. -- high flags: 8004
  149. -- rect: left=315 top=10 right=44 bottom=405
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: test demo
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   set cantmodify of this stack to true
  161.   set usermodify  to true
  162.  
  163.   set the hilite of bg btn info to true
  164.   wait 15
  165.   set the hilite of bg btn info to false
  166.   play click
  167.   TKdoPICT ("airinfopict,screen")
  168.  
  169.  
  170.   set the loc of btn darkness to 144,308
  171.   show btn "darkness"
  172.   set the hilite of btn darkness to true
  173.   wait 3
  174.   set the loc of btn darkness to 144,292
  175.   wait 3
  176.   set the loc of btn darkness to 144,276
  177.   wait 3
  178.   set the loc of btn darkness to 144,260
  179.   wait 3
  180.   set the loc of btn darkness to 144,245
  181.   wait 3
  182.   set the loc of btn darkness to 144,229
  183.   wait 3
  184.   set the loc of btn darkness to 144,212
  185.   wait 3
  186.   set the loc of btn darkness to 144,196
  187.   wait 60
  188.   hide btn "darkness"
  189.   set the hilite of btn darkness to false
  190.  
  191.   play "bird"
  192.   tkshowpict "savingpict",10,27
  193.   wait 120
  194.   play click
  195.   lock screen
  196.   unlock screen
  197. end mouseUp
  198. --tkdopict "airinfopict,screen" ,73,135
  199. --show btn "hiliteman"
  200. --set the loc of btn hilite man to
  201.  
  202.  
  203. -- part 12 (button)
  204. -- low flags: 80
  205. -- high flags: 4000
  206. -- rect: left=78 top=188 right=204 bottom=212
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: darkness
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   put "set the loc of btn darkness to"&&the loc of me&&return after card fld collectit
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part contents for background part 1
  223. ----- text -----
  224. Saving The Environment
  225.  
  226. -- part contents for card part 9
  227. ----- text -----
  228.       
  229. "Treat the Earth well; it was not given to you by your parents, it was lent to you by your children."
  230.                       Kenyan proverb